home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 January / Ahoy_Magazine_85-01_1985_Double_L.d64 / rupert #1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  942b  |  38 lines
  1. 0 rem << rr13-4 >>
  2. 1 rem =-= sprite maker =-=
  3. 10 input"store in which memory block (192..199)";bk
  4. 20 mem=64*bk
  5. 30 for row=0 to 20
  6. 40 read a$
  7. 50 for byte=0 to 2 : ttl=0
  8. 60 for bit=7 to 0 step -1
  9. 70 if mid$(a$,8+8*byte-bit,1)="."then 90
  10. 80 ttl=ttl+2^bit
  11. 90 next bit
  12. 100 print ttl,
  13. 110 poke mem,ttl : mem=mem+1
  14. 120 next byte
  15. 130 print
  16. 140 next row
  17. 1001 data........................
  18. 1002 data...................**...
  19. 1003 data...................***..
  20. 1004 data....................**..
  21. 1005 data........................
  22. 1006 data...................*...*
  23. 1007 data....................*...
  24. 1008 data.................*..*...
  25. 1009 data..................***...
  26. 1010 data..............**....*...
  27. 1011 data.............*..*...*...
  28. 1012 data............*....*..*...
  29. 1013 data....*........*..*..**...
  30. 1014 data***..*...**...**........
  31. 1015 data****..*.*..*............
  32. 1016 data*..**..*....*...........
  33. 1017 data*...**..*...............
  34. 1018 data.*.**.*..*..*...........
  35. 1019 data..**...**..*............
  36. 1020 data...*....***.............
  37. 1021 data....*...................
  38.